home *** CD-ROM | disk | FTP | other *** search
- object GetURL: TGetURL
- Left = 345
- Top = 243
- HelpContext = 7000
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Link anlegen'
- ClientHeight = 273
- ClientWidth = 463
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- Scaled = False
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Button2: TButton
- Left = 296
- Top = 244
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- TabOrder = 0
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 380
- Top = 244
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Abbrechen'
- TabOrder = 1
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 148
- Top = 244
- Width = 141
- Height = 25
- Caption = '&Vorschau im Browser...'
- TabOrder = 2
- OnClick = Button4Click
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 8
- Width = 449
- Height = 65
- TabOrder = 3
- object RadioButton1: TRadioButton
- Left = 20
- Top = 16
- Width = 201
- Height = 17
- Caption = 'Link auf eine lokale Datei '
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = RadioButton1Click
- end
- object RadioButton2: TRadioButton
- Left = 20
- Top = 40
- Width = 253
- Height = 17
- Caption = 'Link auf eine Adresse im Internet'
- TabOrder = 1
- OnClick = RadioButton1Click
- end
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 84
- Width = 449
- Height = 153
- TabOrder = 4
- object Label1: TLabel
- Left = 12
- Top = 20
- Width = 369
- Height = 29
- AutoSize = False
- Caption =
- 'Link auf lokale Seite (z.B. C:\abcd.htm). Die Datei wird falls e' +
- 'rforderlich in das Onlineshop-Verzeichnis kopiert.'
- WordWrap = True
- end
- object Label2: TLabel
- Left = 12
- Top = 88
- Width = 319
- Height = 13
- Caption =
- 'Link auf eine Adresse im Internet (z.B. http://www.meinedomain.d' +
- 'e)'
- end
- object Edit1: TEdit
- Left = 12
- Top = 52
- Width = 317
- Height = 21
- TabOrder = 0
- end
- object Edit2: TEdit
- Left = 12
- Top = 108
- Width = 317
- Height = 21
- Color = clSilver
- Enabled = False
- TabOrder = 1
- end
- object Button1: TButton
- Left = 348
- Top = 48
- Width = 93
- Height = 25
- Caption = '&Durchsuchen...'
- TabOrder = 2
- OnClick = Button1Click
- end
- end
- object FindURL: TOpenDialog
- Filter = 'HTML - Dateien (*.htm; *.html)|*.htm;*.html|Alle Dateien|*.*'
- Left = 64
- Top = 248
- end
- object Executor1: TExecutor
- Left = 12
- Top = 248
- end
- end
-